VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "PlayerClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Implements EntityBaseClass
Public Health As Integer
Public X As Single
Public Y As Single
Public Fire As Boolean
Private FireFrame As Byte: Private FireTick As Long: Private FireStart As Long
'Player specific
Public Name As String
Private Property Let EntityBaseClass_Fire(ByVal RHS As Boolean)
Fire = RHS
End Property
Private Property Get EntityBaseClass_Fire() As Boolean
End Property
Private Property Let EntityBaseClass_Health(ByVal RHS As Integer)
Health = RHS
End Property
Private Property Get EntityBaseClass_Health() As Integer
EntityBaseClass_Health = Health
End Property
Private Property Let EntityBaseClass_X(ByVal RHS As Single)
X = RHS
End Property
Private Property Get EntityBaseClass_X() As Single
EntityBaseClass_X = X
End Property
Private Property Let EntityBaseClass_Y(ByVal RHS As Single)
Y = RHS
End Property
Private Property Get EntityBaseClass_Y() As Single
EntityBaseClass_Y = Y
End Property
Private Sub EntityBaseClass_Draw()
If LastDir And (2 ^ 0) Then Call Render32((X - (CamX - 10)) * 32, (Y - (CamY - 10)) * 32, 10, 0, Sprites)
If LastDir And (2 ^ 1) Then Call Render32((X - (CamX - 10)) * 32, (Y - (CamY - 10)) * 32, 4, 0, Sprites)
If LastDir And (2 ^ 2) Then Call Render32((X - (CamX - 10)) * 32, (Y - (CamY - 10)) * 32, 7, 0, Sprites)
If LastDir And (2 ^ 3) Then Call Render32((X - (CamX - 10)) * 32, (Y - (CamY - 10)) * 32, 1, 0, Sprites)

If Fire Then
Call Render32(((X - (CamX - 10)) * 32), ((Y - (CamY - 10)) * 32) + 3, FireFrame, 19, Spells)
If Abs(GetTick - FireTick) >= 50 Then
FireFrame = FireFrame + 1: If FireFrame > 11 Then FireFrame = 0
FireTick = GetTick
End If
End If
End Sub
Private Sub EntityBaseClass_Update()
If Abs(GetTick - FireStart) >= 30000 Then
Fire = False
End If

End Sub
Public Sub EntityBaseClass_Ignite()
Fire = True: FireStart = GetTick
End Sub






